DOWNLOAD "GOTO1.BAS"
SIZE 4,1
GAP 0,0
DIRECTION 1
CLS
A=0
TOTAL=0
:START
IF A<100 THEN
GOTO SUM
ELSE
GOTO PRTOUT
ENDIF
:SUM
A=A+1
TOTAL=TOTAL+A
GOTO START
:PRTOUT
B$="THE SUMMATION OF 1..100 IS "+STR$(TOTAL)
TEXT 10,100,"2",0,1,1,B$
PRINT 1
END
EOP
RUN "GOTO1.BAS"
